;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 5/17/2007
;;;		   EDITED: 5/17/2007
;;;
(DEFUN C:WIPEWHITE ()
  (IF (OR (TBLOBJNAME "BLOCK" "HDBOX")
          (TBLOBJNAME "BLOCK" "HDCIRC")
          (TBLOBJNAME "BLOCK" "HDANG")
          (TBLOBJNAME "BLOCK" "PARA-HDBOX")
          (TBLOBJNAME "BLOCK" "PARA-HDCIRC")
          (TBLOBJNAME "BLOCK" "PARA-HDANG")
      )
    (PROGN
      (IF hd-wipeout
        (SETQ hd-wipeout NIL hd-image T)
        (SETQ hd-wipeout T hd-image NIL)
      )
      (COND
        (hd-image
	  (COMMAND ".insert" "hdbox=hdbox" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "hdarea=hdarea" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "hdang=hdang" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "hdcirc=hdcirc" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "para-hdbox=para-hdbox" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "para-hdang=para-hdang" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "para-hdcirc=para-hdcirc" "y")
	  (COMMAND nil nil nil)
          (PRINC "\nMask objects now use images. ")
          (PRINC)
        )
        (hd-wipeout
	  (COMMAND ".insert" "hdbox=hdboxw" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "hdarea=hdboxw" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "hdang=hdangw" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "hdcirc=hdcircw" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "para-hdbox=para-hdboxw" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "para-hdang=hdangw" "y")
	  (COMMAND nil nil nil)
	  (COMMAND ".insert" "para-hdcirc=hdcircw" "y")
	  (COMMAND nil nil nil)
          (PRINC "\nMask objects now use wipeouts. ")
          (PRINC)
        )
      )
    )
  )
)